home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / EPPC.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  2.7 KB  |  131 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        EPPC.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__EPPC__') = 'UNDEFINED' THEN
  18. __EPPC__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__PPCTOOLBOX__') = 'UNDEFINED' THEN
  27.     include 'PPCToolbox.a'
  28.     ENDIF
  29. ;        include 'AppleTalk.a'                                        ;
  30. ;            include 'Types.a'                                        ;
  31. ;            include 'OSUtils.a'                                    ;
  32. ;                include 'MixedMode.a'                                ;
  33. ;                include 'Memory.a'                                    ;
  34.  
  35.     IF &TYPE('__PROCESSES__') = 'UNDEFINED' THEN
  36.     include 'Processes.a'
  37.     ENDIF
  38. ;        include 'Events.a'                                            ;
  39. ;            include 'Quickdraw.a'                                    ;
  40. ;                include 'QuickdrawText.a'                            ;
  41. ;        include 'Files.a'                                            ;
  42.  
  43. kHighLevelEvent                    EQU        23
  44. ; postOptions currently supported 
  45. receiverIDMask                    EQU        $0000F000
  46. receiverIDisPSN                    EQU        $00008000
  47. receiverIDisSignature            EQU        $00007000
  48. receiverIDisSessionID            EQU        $00006000
  49. receiverIDisTargetID            EQU        $00005000
  50. systemOptionsMask                EQU        $00000F00
  51. nReturnReceipt                    EQU        $00000200
  52. priorityMask                    EQU        $000000FF
  53. nAttnMsg                        EQU        $00000001
  54. ; constant for return receipts 
  55. HighLevelEventMsgClass            EQU        'jaym'
  56. rtrnReceiptMsgID                EQU        'rtrn'
  57. msgWasPartiallyAccepted            EQU        2
  58. msgWasFullyAccepted                EQU        1
  59. msgWasNotAccepted                EQU        0
  60.  
  61. TargetID                 RECORD    0
  62. sessionID                 ds.l    1
  63. name                     ds.l    20
  64. location                 ds.w    69
  65. recvrName                 ds.l    20
  66. sizeof                     EQU    302
  67.                         ENDR
  68.  
  69. HighLevelEventMsg         RECORD    0
  70. HighLevelEventMsgHeaderLength ds.w    1
  71. version                     ds.w    1
  72. reserved1                 ds.l    1
  73. theMsgEvent                 ds        EventRecord
  74. userRefcon                 ds.l    1
  75. postingOptions             ds.l    1
  76. msgLength                 ds.l    1
  77. sizeof                     EQU    36
  78.                         ENDR
  79.  
  80.     IF GENERATING68K THEN
  81.         Macro
  82.         _PostHighLevelEvent
  83.             move.w    #$0034,-(sp)
  84.             dc.w     $A88F
  85.         EndM
  86.     ELSE
  87.         IMPORT    PostHighLevelEvent
  88.     ENDIF
  89.  
  90.     IF GENERATING68K THEN
  91.         Macro
  92.         _AcceptHighLevelEvent
  93.             move.w    #$0033,-(sp)
  94.             dc.w     $A88F
  95.         EndM
  96.     ELSE
  97.         IMPORT    AcceptHighLevelEvent
  98.     ENDIF
  99.  
  100.     IF GENERATING68K THEN
  101.         Macro
  102.         _GetProcessSerialNumberFromPortName
  103.             move.w    #$0035,-(sp)
  104.             dc.w     $A88F
  105.         EndM
  106.     ELSE
  107.         IMPORT    GetProcessSerialNumberFromPortName
  108.     ENDIF
  109.  
  110.     IF GENERATING68K THEN
  111.         Macro
  112.         _GetPortNameFromProcessSerialNumber
  113.             move.w    #$0046,-(sp)
  114.             dc.w     $A88F
  115.         EndM
  116.     ELSE
  117.         IMPORT    GetPortNameFromProcessSerialNumber
  118.     ENDIF
  119.  
  120.     IF GENERATING68K THEN
  121.         Macro
  122.         _GetSpecificHighLevelEvent
  123.             move.w    #$0045,-(sp)
  124.             dc.w     $A88F
  125.         EndM
  126.     ELSE
  127.         IMPORT    GetSpecificHighLevelEvent
  128.     ENDIF
  129.  
  130.     ENDIF ; __EPPC__
  131.